Strategy Challenges Collection/Strategy Challenges Collection.iso/pc/demo/demodata/menu.dxr/00198.ls

Text File | 1996-10-02 | 379 b | 19 lines

on mouseDown
  buttonHilite()
end

on mouseUp
  global gAbort
  if gAbort = 0 then
    set tempJump to the name of cast the castNum of sprite clickOn()
    if tempJump <> "Tthings1" then
      exit
    end if
    set jumpName to chars(tempJump, 1, length(tempJump) - 5)
    clearPuppets(2, 12)
    go(the frame + 1)
    puppetSound(0)
    PlayDemoFrame(1, jumpName)
  end if
end